home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update20.zoo / gas / diffs next >
Encoding:
Text File  |  1992-04-02  |  28.0 KB  |  996 lines
  1. *** 1.1    1992/04/02 22:37:22
  2. --- Makefile    1992/04/03 03:33:36
  3. ***************
  4. *** 1,3 ****
  5. --- 1,9 ----
  6. + # HISTORY
  7. + # 31-Jul-91  Shin Iwamoto (shin) at CANON Inc.
  8. + #    Added difinitions for STONE.
  9. + # old day    Shin Iwamoto (shin) at CANON Inc.
  10. + #    Added -DCANON.
  11. + 
  12.   # Makefile for GAS.
  13.   # Copyright (C) 1989, Free Software Foundation
  14.   # 
  15. ***************
  16. *** 21,32 ****
  17.   # SPARC, ns32k, or i860 assembler(s).
  18.   
  19.   BINDIR = /usr/local/bin
  20. ! #CC=gcc
  21.   
  22.   # If you are on a BSD system, un-comment the next two lines, and comment out
  23.   # the lines for SystemV and HPUX below
  24. ! G0 = -g  -I. #-O -Wall
  25. ! LDFLAGS = $(CFLAGS)
  26.   #
  27.   # To compile gas on a System Five machine, comment out the two lines above
  28.   # and un-comment out the next three lines
  29. --- 27,43 ----
  30.   # SPARC, ns32k, or i860 assembler(s).
  31.   
  32.   BINDIR = /usr/local/bin
  33. ! CC=gcc
  34.   
  35.   # If you are on a BSD system, un-comment the next two lines, and comment out
  36.   # the lines for SystemV and HPUX below
  37. ! #G0 = -g  -I. #-O -Wall
  38. ! #LDFLAGS = $(CFLAGS)
  39. ! #
  40. ! # To compile gas for STONE, link m-stone.h to m68k.h, and un-comment the
  41. ! # next two lines.
  42. ! G0 = -g  -I. -Dm68040 -DCANON #-O -Wall
  43. ! LDFLAGS = 
  44.   #
  45.   # To compile gas on a System Five machine, comment out the two lines above
  46.   # and un-comment out the next three lines
  47. ***************
  48. *** 122,128 ****
  49.   
  50.   G1 = # -DUSE_SYSTEM_HDR
  51.   G2 = # -DUSE_HP_HDR
  52. ! G3 = # -DSUN_ASM_SYNTAX
  53.   
  54.   OPTIONS = $(O1) $(O2) $(O3) $(O4) $(O5) $(O6) $(O7) $(O8) $(O9) $(O10)
  55.   
  56. --- 133,139 ----
  57.   
  58.   G1 = # -DUSE_SYSTEM_HDR
  59.   G2 = # -DUSE_HP_HDR
  60. ! G3 =  -DSUN_ASM_SYNTAX
  61.   
  62.   OPTIONS = $(O1) $(O2) $(O3) $(O4) $(O5) $(O6) $(O7) $(O8) $(O9) $(O10)
  63.   
  64. *** 1.1    1992/04/02 22:42:46
  65. --- Makefile.st    1992/04/03 03:33:37
  66. ***************
  67. *** 118,124 ****
  68.   #
  69.   
  70.   CC=$(CROSSBIN)/cgcc
  71. ! CFLAGS = -O -I. -I$(CROSSINC) $(OPTIONS)
  72.   LDFLAGS = $(CFLAGS)
  73.   # To compile gas on a System Five machine, comment out the two lines above
  74.   # and un-comment out the next three lines
  75. --- 118,124 ----
  76.   #
  77.   
  78.   CC=$(CROSSBIN)/cgcc
  79. ! CFLAGS = -O2 -fomit-frame-pointer -fstrength-reduce -I. -I$(CROSSINC) $(OPTIONS)
  80.   LDFLAGS = $(CFLAGS)
  81.   # To compile gas on a System Five machine, comment out the two lines above
  82.   # and un-comment out the next three lines
  83. *** 1.2    1992/04/02 22:42:46
  84. --- app.c    1992/04/03 03:33:39
  85. ***************
  86. *** 257,262 ****
  87. --- 257,268 ----
  88.               (*unget)(ch);
  89.               goto flushchar;
  90.           }
  91. + #ifdef CANON
  92. +         if(ch==':') {
  93. +             (*unget)(ch);
  94. +             goto flushchar;
  95. +         }
  96. + #endif CANON
  97.           (*unget)(ch);
  98.           if(state==0 || state==2) {
  99.               state++;
  100. *** 1.2    1992/04/02 22:42:46
  101. --- as.c    1992/04/03 03:33:39
  102. ***************
  103. *** 181,187 ****
  104. --- 181,193 ----
  105.                   compiler_version_string = arg;
  106.                   }
  107.   #else /* not VMS */
  108. + #if defined(CROSSATARI) || defined(atarist) || defined(atariminix)
  109. + #include "PatchLev.h"
  110. +                 fprintf(stderr, "%s atariST PatchLevel %s\n",
  111. +                    version_string, PatchLevel);
  112. + #else
  113.                   fprintf(stderr,version_string);
  114. + #endif
  115.                   if(*arg && strcmp(arg,"ersion"))
  116.                       as_warn("Unknown -v option ignored");
  117.   #endif
  118. *** 1.2    1992/04/02 22:42:46
  119. --- m68k-opcode.h    1992/04/03 03:33:48
  120. ***************
  121. *** 1,3 ****
  122. --- 1,17 ----
  123. + /*
  124. +  * HISTORY
  125. +  * 09-Aug-91  Shin Iwamoto (shin) at CANON Inc.
  126. +  *    Added the following floating-point instruction on mc68040:
  127. +  *        F[SD]ADD, F[SD]SUB, F[SD]MUL, F[SD]DIV, F[SD]ABS,
  128. +  *        F[SD]NEG, F[SD]SQRT, F[SD]MOVE
  129. +  *    Removed fsubx with one register.
  130. +  * 07-Aug-91  Shin Iwamoto (shin) at CANON Inc.
  131. +  *    Added definitions for indirectly supported floating-point
  132. +  *    instructions on mc68040.
  133. +  * 23-Jan-91  K. Chyo (chyo) at DPS of CANON Inc.
  134. +  *    Enhanced for mc68040 support.
  135. +  */
  136. + 
  137.   /* Opcode table for m68000/m68020 and m68881.
  138.      Copyright (C) 1989, Free Software Foundation.
  139.   
  140. ***************
  141. *** 17,23 ****
  142.   along with GDB or GAS; see the file COPYING.  If not, write to
  143.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  144.      
  145. - 
  146.   struct m68k_opcode
  147.   {
  148.     char *name;
  149. --- 31,36 ----
  150. ***************
  151. *** 87,92 ****
  152. --- 100,115 ----
  153.       802    CAAR    Cache Address Register
  154.       803    MSP    Master Stack Pointer
  155.       804    ISP    Interrupt Stack Pointer
  156. + #ifdef m68040
  157. +     003    MMU Translation Control reg
  158. +     004    Instruction Transparant Tlanslation reg 0
  159. +     005    Instruction Transparant Tlanslation reg 1
  160. +     006    Data Transparant Tlanslation reg 0
  161. +     007    Data Transparant Tlanslation reg 1
  162. +     805    MMU Status reg
  163. +     806    User Root Pointer
  164. +     807    Supervisor Root Pointer
  165. + #endif m68040
  166.   
  167.       L  Register list of the type d0-d7/a0-a7 etc.
  168.          (New!  Improved!  Can also hold fp0-fp7, as well!)
  169. ***************
  170. *** 111,116 ****
  171. --- 134,145 ----
  172.      /  control, or data register            (modes 0,2,5,6,7.0,7.1,7.2,7.3)(not 1,3,4,7.4)
  173.   */
  174.   
  175. + #ifdef m68040
  176. + /*
  177. +    a  address register indirect only.  Stored as 3 bits.
  178. +    c  cache immediate data.  Stored as 2 bits.
  179. + */
  180. + #endif m68040
  181.   /* JF: for the 68851 */
  182.   /*
  183.      I didn't use much imagination in choosing the 
  184. ***************
  185. *** 1185,1191 ****
  186.   {"fsubw",    two(0xF000, 0x5028),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  187.   {"fsubx",    two(0xF000, 0x0028),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  188.   {"fsubx",    two(0xF000, 0x4828),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  189. ! {"fsubx",    two(0xF000, 0x0028),    two(0xF1C0, 0xE07F),    "IiFt"},
  190.   
  191.   {"ftanb",    two(0xF000, 0x580F),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  192.   {"ftand",    two(0xF000, 0x540F),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  193. --- 1214,1220 ----
  194.   {"fsubw",    two(0xF000, 0x5028),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  195.   {"fsubx",    two(0xF000, 0x0028),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  196.   {"fsubx",    two(0xF000, 0x4828),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  197. ! /* {"fsubx",    two(0xF000, 0x0028),    two(0xF1C0, 0xE07F),    "IiFt"}, Shin removed */
  198.   
  199.   {"ftanb",    two(0xF000, 0x580F),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  200.   {"ftand",    two(0xF000, 0x540F),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  201. ***************
  202. *** 1478,1483 ****
  203. --- 1507,1686 ----
  204.   {"movsw",    two(0007100, 0),    two(0177700, 07777),    "~sR1"},
  205.   {"movsw",    two(0007100, 04000),    two(0177700, 07777),    "R1~s"},
  206.   
  207. + #ifdef m68040
  208. + {"mov16",    two(0173040, 0100000),    two(0177770, 0100000),    "+s+1"},
  209. + {"mov16",    one(0173000),        one(0177770),        "+s#l"},
  210. + {"mov16",    one(0173010),        one(0177770),        "#l+s"},
  211. + {"mov16",    one(0173020),        one(0177770),        "as#l"},
  212. + {"mov16",    one(0173030),        one(0177770),        "#las"},
  213. + 
  214. + {"cinvl",    one(0172010),        one(0177470),        "c9as"},
  215. + {"cinvp",    one(0172020),        one(0177470),        "c9as"},
  216. + {"cinva",    one(0172030),        one(0177470),        "c9"},
  217. + 
  218. + {"cpushl",    one(0172050),        one(0177470),        "c9as"},
  219. + {"cpushp",    one(0172060),        one(0177470),        "c9as"},
  220. + {"cpusha",    one(0172070),        one(0177470),        "c9"},
  221. + 
  222. + {"pflushn",    one(0172400),        one(0177770),        "as"},
  223. + {"pflush",    one(0172410),        one(0177770),        "as"},
  224. + {"pflushan",    one(0172420),        one(0177770),        ""},
  225. + {"pflusha",    one(0172430),        one(0177770),        ""},
  226. + 
  227. + {"ptestw",    one(0172510),        one(0177770),        "as"},
  228. + {"ptestr",    one(0172550),        one(0177770),        "as"},
  229. + 
  230. + {"fsaddb",    two(0xF000, 0x5862),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  231. + {"fsaddd",    two(0xF000, 0x5462),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  232. + {"fsaddl",    two(0xF000, 0x4062),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  233. + {"fsaddp",    two(0xF000, 0x4C62),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  234. + {"fsadds",    two(0xF000, 0x4462),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  235. + {"fsaddw",    two(0xF000, 0x5062),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  236. + {"fsaddx",    two(0xF000, 0x0062),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  237. + {"fsaddx",    two(0xF000, 0x4862),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  238. + 
  239. + {"fdaddb",    two(0xF000, 0x5866),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  240. + {"fdaddd",    two(0xF000, 0x5466),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  241. + {"fdaddl",    two(0xF000, 0x4066),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  242. + {"fdaddp",    two(0xF000, 0x4C66),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  243. + {"fdadds",    two(0xF000, 0x4466),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  244. + {"fdaddw",    two(0xF000, 0x5066),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  245. + {"fdaddx",    two(0xF000, 0x0066),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  246. + {"fdaddx",    two(0xF000, 0x4866),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  247. + 
  248. + {"fssubb",    two(0xF000, 0x5868),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  249. + {"fssubd",    two(0xF000, 0x5468),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  250. + {"fssubl",    two(0xF000, 0x4068),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  251. + {"fssubp",    two(0xF000, 0x4C68),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  252. + {"fssubs",    two(0xF000, 0x4468),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  253. + {"fssubw",    two(0xF000, 0x5068),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  254. + {"fssubx",    two(0xF000, 0x0068),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  255. + {"fssubx",    two(0xF000, 0x4868),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  256. + 
  257. + {"fdsubb",    two(0xF000, 0x586C),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  258. + {"fdsubd",    two(0xF000, 0x546C),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  259. + {"fdsubl",    two(0xF000, 0x406C),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  260. + {"fdsubp",    two(0xF000, 0x4C6C),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  261. + {"fdsubs",    two(0xF000, 0x446C),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  262. + {"fdsubw",    two(0xF000, 0x506C),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  263. + {"fdsubx",    two(0xF000, 0x006C),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  264. + {"fdsubx",    two(0xF000, 0x486C),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  265. + 
  266. + {"fsmulb",    two(0xF000, 0x5863),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  267. + {"fsmuld",    two(0xF000, 0x5463),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  268. + {"fsmull",    two(0xF000, 0x4063),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  269. + {"fsmulp",    two(0xF000, 0x4C63),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  270. + {"fsmuls",    two(0xF000, 0x4463),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  271. + {"fsmulw",    two(0xF000, 0x5063),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  272. + {"fsmulx",    two(0xF000, 0x0063),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  273. + {"fsmulx",    two(0xF000, 0x4863),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  274. + 
  275. + {"fdmulb",    two(0xF000, 0x5867),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  276. + {"fdmuld",    two(0xF000, 0x5467),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  277. + {"fdmull",    two(0xF000, 0x4067),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  278. + {"fdmulp",    two(0xF000, 0x4C67),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  279. + {"fdmuls",    two(0xF000, 0x4467),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  280. + {"fdmulw",    two(0xF000, 0x5067),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  281. + {"fdmulx",    two(0xF000, 0x0067),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  282. + {"fdmulx",    two(0xF000, 0x4867),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  283. + 
  284. + {"fsdivb",    two(0xF000, 0x5860),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  285. + {"fsdivd",    two(0xF000, 0x5460),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  286. + {"fsdivl",    two(0xF000, 0x4060),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  287. + {"fsdivp",    two(0xF000, 0x4C60),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  288. + {"fsdivs",    two(0xF000, 0x4460),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  289. + {"fsdivw",    two(0xF000, 0x5060),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  290. + {"fsdivx",    two(0xF000, 0x0060),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  291. + {"fsdivx",    two(0xF000, 0x4860),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  292. + 
  293. + {"fddivb",    two(0xF000, 0x5864),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  294. + {"fddivd",    two(0xF000, 0x5464),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  295. + {"fddivl",    two(0xF000, 0x4064),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  296. + {"fddivp",    two(0xF000, 0x4C64),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  297. + {"fddivs",    two(0xF000, 0x4464),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  298. + {"fddivw",    two(0xF000, 0x5064),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  299. + {"fddivx",    two(0xF000, 0x0064),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  300. + {"fddivx",    two(0xF000, 0x4864),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  301. + 
  302. + {"fsabsb",    two(0xF000, 0x5858),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  303. + {"fsabsd",    two(0xF000, 0x5458),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  304. + {"fsabsl",    two(0xF000, 0x4058),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  305. + {"fsabsp",    two(0xF000, 0x4C58),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  306. + {"fsabss",    two(0xF000, 0x4458),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  307. + {"fsabsw",    two(0xF000, 0x5058),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  308. + {"fsabsx",    two(0xF000, 0x0058),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  309. + {"fsabsx",    two(0xF000, 0x4858),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  310. + {"fsabsx",    two(0xF000, 0x0058),    two(0xF1C0, 0xE07F),    "IiFt"},
  311. + 
  312. + {"fdabsb",    two(0xF000, 0x585C),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  313. + {"fdabsd",    two(0xF000, 0x545C),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  314. + {"fdabsl",    two(0xF000, 0x405C),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  315. + {"fdabsp",    two(0xF000, 0x4C5C),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  316. + {"fdabss",    two(0xF000, 0x445C),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  317. + {"fdabsw",    two(0xF000, 0x505C),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  318. + {"fdabsx",    two(0xF000, 0x005C),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  319. + {"fdabsx",    two(0xF000, 0x485C),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  320. + {"fdabsx",    two(0xF000, 0x005C),    two(0xF1C0, 0xE07F),    "IiFt"},
  321. + 
  322. + {"fsnegb",    two(0xF000, 0x585A),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  323. + {"fsnegd",    two(0xF000, 0x545A),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  324. + {"fsnegl",    two(0xF000, 0x405A),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  325. + {"fsnegp",    two(0xF000, 0x4C5A),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  326. + {"fsnegs",    two(0xF000, 0x445A),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  327. + {"fsnegw",    two(0xF000, 0x505A),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  328. + {"fsnegx",    two(0xF000, 0x005A),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  329. + {"fsnegx",    two(0xF000, 0x485A),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  330. + {"fsnegx",    two(0xF000, 0x005A),    two(0xF1C0, 0xE07F),    "IiFt"},
  331. + 
  332. + {"fdnegb",    two(0xF000, 0x585E),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  333. + {"fdnegd",    two(0xF000, 0x545E),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  334. + {"fdnegl",    two(0xF000, 0x405E),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  335. + {"fdnegp",    two(0xF000, 0x4C5E),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  336. + {"fdnegs",    two(0xF000, 0x445E),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  337. + {"fdnegw",    two(0xF000, 0x505E),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  338. + {"fdnegx",    two(0xF000, 0x005E),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  339. + {"fdnegx",    two(0xF000, 0x485E),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  340. + {"fdnegx",    two(0xF000, 0x005E),    two(0xF1C0, 0xE07F),    "IiFt"},
  341. + 
  342. + {"fssqrtb",    two(0xF000, 0x5841),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  343. + {"fssqrtd",    two(0xF000, 0x5441),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  344. + {"fssqrtl",    two(0xF000, 0x4041),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  345. + {"fssqrtp",    two(0xF000, 0x4C41),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  346. + {"fssqrts",    two(0xF000, 0x4441),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  347. + {"fssqrtw",    two(0xF000, 0x5041),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  348. + {"fssqrtx",    two(0xF000, 0x0041),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  349. + {"fssqrtx",    two(0xF000, 0x4841),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  350. + {"fssqrtx",    two(0xF000, 0x0041),    two(0xF1C0, 0xE07F),    "IiFt"},
  351. + 
  352. + {"fdsqrtb",    two(0xF000, 0x5845),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  353. + {"fdsqrtd",    two(0xF000, 0x5445),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  354. + {"fdsqrtl",    two(0xF000, 0x4045),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  355. + {"fdsqrtp",    two(0xF000, 0x4C45),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  356. + {"fdsqrts",    two(0xF000, 0x4445),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  357. + {"fdsqrtw",    two(0xF000, 0x5045),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  358. + {"fdsqrtx",    two(0xF000, 0x0045),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  359. + {"fdsqrtx",    two(0xF000, 0x4845),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  360. + {"fdsqrtx",    two(0xF000, 0x0045),    two(0xF1C0, 0xE07F),    "IiFt"},
  361. + 
  362. + {"fsmoveb",    two(0xF000, 0x5840),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  363. + {"fsmoved",    two(0xF000, 0x5440),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  364. + {"fsmovel",    two(0xF000, 0x4040),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  365. + {"fsmovep",    two(0xF000, 0x4C40),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  366. + {"fsmoves",    two(0xF000, 0x4440),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  367. + {"fsmovew",    two(0xF000, 0x5040),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  368. + {"fsmovex",    two(0xF000, 0x0040),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  369. + {"fsmovex",    two(0xF000, 0x4840),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  370. + 
  371. + {"fdmoveb",    two(0xF000, 0x5844),    two(0xF1C0, 0xFC7F),    "Ii;bF7"},
  372. + {"fdmoved",    two(0xF000, 0x5444),    two(0xF1C0, 0xFC7F),    "Ii;FF7"},
  373. + {"fdmovel",    two(0xF000, 0x4044),    two(0xF1C0, 0xFC7F),    "Ii;lF7"},
  374. + {"fdmovep",    two(0xF000, 0x4C44),    two(0xF1C0, 0xFC7F),    "Ii;pF7"},
  375. + {"fdmoves",    two(0xF000, 0x4444),    two(0xF1C0, 0xFC7F),    "Ii;fF7"},
  376. + {"fdmovew",    two(0xF000, 0x5044),    two(0xF1C0, 0xFC7F),    "Ii;wF7"},
  377. + {"fdmovex",    two(0xF000, 0x0044),    two(0xF1C0, 0xE07F),    "IiF8F7"},
  378. + {"fdmovex",    two(0xF000, 0x4844),    two(0xF1C0, 0xFC7F),    "Ii;xF7"},
  379. + #endif m68040
  380. + 
  381.   #ifdef m68851
  382.    /* name */    /* opcode */        /* match */        /* args */
  383.   
  384. ***************
  385. *** 1683,1685 ****
  386. --- 1886,1902 ----
  387.   int numopcodes=sizeof(m68k_opcodes)/sizeof(m68k_opcodes[0]);
  388.   
  389.   struct m68k_opcode *endop = m68k_opcodes+sizeof(m68k_opcodes)/sizeof(m68k_opcodes[0]);
  390. + 
  391. + #ifdef m68040
  392. + char *indirect_fp_opcodes[] =
  393. + {
  394. +     "facos",   "fasin",   "fatanh",  "fatan",    "fcosh",
  395. +     "fcos",    "fetoxm1", "fetox",   "fgetexp",  "fgetman", 
  396. +     "fintrz",  "fint",    "flog10",  "flog2",    "flognp1",
  397. +     "flogn",   "fmod",    "fmovecr", "frem",     "fscale",
  398. +     "fsgldiv", "fsglmul", "fsincos", "fsinh",    "fsin",
  399. +     "ftanh",   "ftan",    "ftentox", "ftwotox",
  400. + };
  401. + 
  402. + char **endfpinst = indirect_fp_opcodes+sizeof(indirect_fp_opcodes)/sizeof(indirect_fp_opcodes[0]);
  403. + #endif m68040
  404. *** 1.2    1992/04/02 22:42:46
  405. --- m68k.c    1992/04/03 03:33:48
  406. ***************
  407. *** 1,3 ****
  408. --- 1,18 ----
  409. + /*
  410. +  * HISTORY
  411. +  * 09-Sep-91  Shin Iwamoto (shin) at CANON Inc.
  412. +  *    Changed the default machine type as mc68040.
  413. +  *    Only changed the initial value of m68k_kind.
  414. +  * 09-Aug-91  Shin Iwamoto (shin) at CANON Inc.
  415. +  *    Supported -m68040 option. When -m68040 is specified,
  416. +  *    indirectly supported floating-point instructions and
  417. +  *    68020 instructions (callm and rtm) aren't assembled.
  418. +  * 31-Jul-91  Shin Iwamoto (shin) at CANON Inc.
  419. +  *    Changed <caches> definitions for CINV as mnemonic.
  420. +  * 23-Jan-91  K. Chyo (chyo) at DPS of CANON Inc.
  421. +  *    Supported instructions on mc68040.
  422. +  */
  423. + 
  424.   /* m68k.c  All the m68020 specific stuff in one convenient, huge,
  425.      slow to compile, easy to find file.
  426.      Copyright (C) 1987 Free Software Foundation, Inc.
  427. ***************
  428. *** 278,283 ****
  429. --- 293,315 ----
  430.   #define FPI    (MSP+1)        /* 45 */
  431.   #define FPS    (FPI+1)        /* 46 */
  432.   #define FPC    (FPS+1)        /* 47 */
  433. + 
  434. + #ifdef m68040
  435. + #define TC    (FPC+1)        /* 48 */
  436. + #define ITT0    (TC+1)        /* 49 */
  437. + #define ITT1    (ITT0+1)    /* 50 */
  438. + #define DTT0    (ITT1+1)    /* 51 */
  439. + #define DTT1    (DTT0+1)    /* 52 */
  440. + #define MMUSR    (DTT1+1)    /* 53 */
  441. + #define URP    (MMUSR+1)    /* 54 */
  442. + #define SRP    (URP+1)        /* 55 */
  443. + 
  444. + #define    NC    (SRP+1)        /* 56 */
  445. + #define    DC    (NC+1)        /* 57 */
  446. + #define    IC    (NC+2)        /* 58 */
  447. + #define    BC    (NC+3)        /* 59 */
  448. + 
  449. + #else /* m68040 */
  450.   /*
  451.    * these defines should be in m68k.c but
  452.    * i put them here to keep all the m68851 stuff
  453. ***************
  454. *** 297,302 ****
  455. --- 329,335 ----
  456.   #define BAC    (BAD+8)        /* 64,65,66,67, 68,69,70,71 */
  457.   #define PSR    (BAC+8)        /* 72 */
  458.   #define PCSR    (PSR+1)        /* 73 */
  459. + #endif m68040
  460.   
  461.   
  462.   /* Note that COPNUM==processor #1 -- COPNUM+7==#8, which stores as 000 */
  463. ***************
  464. *** 434,439 ****
  465. --- 467,482 ----
  466.   #define getone(x)    ((((x)->m_opcode)>>16)&0xffff)
  467.   #define gettwo(x)    (((x)->m_opcode)&0xffff)
  468.   
  469. + #ifdef m68040
  470. + /*
  471. +  * When m68k_kind is 4 (meaning m68040), our as doesn't assemble indirectly
  472. +  * supported floating-point instructions. And then the default is 4.
  473. +  */
  474. + /* int    m68k_kind = 4; *
  475. + 
  476. + /* ++jrb -- change m68k_kind to 0, to use 68040 support use -m68040 arg */
  477. + int    m68k_kind = 4;
  478. + #endif m68040
  479.   
  480.   /* JF modified this to handle cases where the first part of a symbol name
  481.      looks like a register */
  482. ***************
  483. *** 445,451 ****
  484. --- 488,499 ----
  485.       register char c1,
  486.           c2,
  487.           c3,
  488. + #ifdef m68040
  489. +         c4,
  490. +         c5;
  491. + #else
  492.           c4;
  493. + #endif m68040
  494.       register int n = 0,
  495.           ret = FAIL;
  496.   
  497. ***************
  498. *** 457,466 ****
  499. --- 505,520 ----
  500.       c2=mklower(ccp[0][2]);
  501.       c3=mklower(ccp[0][3]);
  502.       c4=mklower(ccp[0][4]);
  503. + #ifdef m68040
  504. +     c5=mklower(ccp[0][5]);
  505. + #endif m68040
  506.   #else
  507.       c2=mklower(ccp[0][1]);
  508.       c3=mklower(ccp[0][2]);
  509.       c4=mklower(ccp[0][3]);
  510. + #ifdef m68040
  511. +     c5=mklower(ccp[0][4]);
  512. + #endif m68040
  513.   #endif
  514.       switch(c1) {
  515.       case 'a':
  516. ***************
  517. *** 475,480 ****
  518. --- 529,542 ----
  519.           }
  520.   #endif
  521.           break;
  522. + #ifdef m68040
  523. +     case 'b':
  524. +         if (c2 == 'c') {
  525. +             n = 2;
  526. +             ret = BC;
  527. +         }
  528. +         break;
  529. + #endif m68040
  530.   #ifdef m68851
  531.       case 'b':
  532.           if (c2 == 'a') {
  533. ***************
  534. *** 532,537 ****
  535. --- 594,613 ----
  536.               ret = (DRP);
  537.           }
  538.   #endif
  539. + #ifdef m68040
  540. +         else if (c2 == 't' && c3 == 't' && c4 == '0') {
  541. +              n = 4;
  542. +             ret = DTT0;
  543. +         }
  544. +         else if (c2 == 't' && c3 == 't' && c4 == '1') {
  545. +             n = 4;
  546. +             ret = DTT1;
  547. +         }
  548. +         else if (c2 == 'c') {
  549. +             n = 2;
  550. +             ret = DC;
  551. +         }
  552. + #endif m68040
  553.           break;
  554.       case 'f':
  555.           if(c2=='p') {
  556. ***************
  557. *** 557,562 ****
  558. --- 633,652 ----
  559.               n=3;
  560.               ret = ISP;
  561.           }
  562. + #ifdef m68040
  563. +         else if (c2 == 't' && c3 == 't' && c4 == '0') {
  564. +             n = 4;
  565. +             ret = ITT0;
  566. +         }
  567. +         else if (c2 == 't' && c3 == 't' && c4 == '1') {
  568. +             n = 4;
  569. +             ret = ITT1;
  570. +         }
  571. +         else if (c2 == 'c') { 
  572. +             n = 2;
  573. +             ret = IC;
  574. +         }
  575. + #endif m68040
  576.           break;
  577.       case 'm':
  578.           if(c2=='s' && c3=='p') {
  579. ***************
  580. *** 563,569 ****
  581. --- 653,674 ----
  582.               n=3;
  583.               ret = MSP;
  584.           }
  585. + #ifdef m68040
  586. +         else if (c2 == 'm' && c3 == 'u' && c4 == 's' && c5 == 'r') 
  587. +         {
  588. +             n = 5;
  589. +             ret = MMUSR;
  590. +         }
  591. + #endif m68040
  592. +         break;
  593. + #ifdef m68040
  594. +     case 'n':
  595. +         if(c2=='c') {
  596. +             n=2;
  597. +             ret = NC;
  598. +         }
  599.           break;
  600. + #endif m68040
  601.       case 'p':
  602.           if(c2=='c') {
  603.   #ifdef m68851
  604. ***************
  605. *** 585,590 ****
  606. --- 690,701 ----
  607.   #endif
  608.           break;
  609.       case 's':
  610. + #ifdef m68040
  611. +         if (c2 == 'r' && c3 == 'p') {
  612. +             n = 3;
  613. +             ret = (SRP);
  614. +         } else
  615. + #endif m68040
  616.   #ifdef m68851
  617.           if (c2 == 'c' && c3 == 'c') {
  618.               n = 3;
  619. ***************
  620. *** 605,611 ****
  621.               ret = SFC;
  622.           }
  623.           break;
  624. ! #ifdef m68851
  625.       case 't':
  626.           if(c2 == 'c') {
  627.               n=2;
  628. --- 716,722 ----
  629.               ret = SFC;
  630.           }
  631.           break;
  632. ! #if defined(m68851) || defined(m68040)
  633.       case 't':
  634.           if(c2 == 'c') {
  635.               n=2;
  636. ***************
  637. *** 614,619 ****
  638. --- 725,736 ----
  639.           break;
  640.   #endif
  641.       case 'u':
  642. + #ifdef m68040
  643. +         if (c2 == 'r' && c3 == 'p') {
  644. +             n = 3;
  645. +             ret = (URP);
  646. +         } else
  647. + #endif m68040
  648.           if(c2=='s' && c3=='p') {
  649.               n=3;
  650.               ret = USP;
  651. ***************
  652. *** 673,679 ****
  653. --- 790,803 ----
  654.           return FAIL;
  655.       }
  656.       for(strend=str;*strend;strend++)
  657. + #if defined(CANON) && defined(SUN_ASM_SYNTAX)
  658. +         if (*strend == ' ' || *strend == '\t') {
  659. +             *strend = '\0';
  660. +             break;
  661. +         }
  662. + #else
  663.           ;
  664. + #endif CANON && SUN_ASM_SYNTAX
  665.       --strend;
  666.   
  667.           /* Guess what:  A constant.  Shar and enjoy */
  668. ***************
  669. *** 1016,1022 ****
  670. --- 1140,1154 ----
  671.     /* Scan up to end of operation-code, which MUST end in end-of-string
  672.        or exactly 1 space. */
  673.       for (p = instring; *p != '\0'; p++)
  674. + #if defined(CANON) && defined(SUN_ASM_SYNTAX)
  675. +         /*
  676. +          * On SUN's Assembler, an operator and operands can be
  677. +          * separeted by spaces or tabs. (Shin)
  678. +          */
  679. +         if (*p == ' ' || *p == '\t')
  680. + #else
  681.           if (*p == ' ')
  682. + #endif CANON && SUN_ASUM_SYNTAX
  683.               break;
  684.   
  685.   
  686. ***************
  687. *** 1032,1037 ****
  688. --- 1164,1176 ----
  689.        look it up in the hash table, then fix it back. */   
  690.       c = *p;
  691.       *p = '\0';
  692. + #ifdef m68040
  693. +     if (m68k_kind == 4 && (
  694. +              (instring[0] == 'f' && indirect_fp_inst(instring))
  695. +             || m68020_only_inst(instring) )){
  696. +         opcode = NULL;
  697. +     } else
  698. + #endif m68040
  699.       opcode = (struct m68_incant *)hash_find (op_hash, instring);
  700.       *p = c;
  701.   
  702. ***************
  703. *** 1042,1047 ****
  704. --- 1181,1192 ----
  705.           return;
  706.       }
  707.   
  708. + #if defined(CANON) && defined(SUN_ASM_SYNTAX)
  709. +     for (; *p != '\0'; p++)
  710. +         if (!(*p == ' ' || *p == '\t'))
  711. +             break;
  712. + #endif CANON && SUN_ASM_SYNTAX
  713. + 
  714.     /* found a legitimate opcode, start matching operands */
  715.       for(opP= &the_ins.operands[0];*p;opP++) {
  716.           p = crack_operand (p, opP);
  717. ***************
  718. *** 1170,1175 ****
  719. --- 1315,1326 ----
  720.                       losing++;
  721.                   break;
  722.   
  723. + #ifdef m68040
  724. +             case 'a':
  725. +                 if(opP->mode!=AINDR)
  726. +                     losing++;
  727. +                 break;
  728. + #endif m68040
  729.               case 'A':
  730.                   if(opP->mode!=AREG)
  731.                       losing++;
  732. ***************
  733. *** 1179,1185 ****
  734. --- 1330,1343 ----
  735.                   if(opP->mode!=ABSL)
  736.                       losing++;
  737.                   break;
  738. + #ifdef m68040
  739. +             case 'c':
  740. +                 if(opP->mode!=MSCR || opP->reg<NC || opP->reg>BC)
  741. +                     losing++;
  742. +                 break;
  743.   
  744. + #endif
  745. + 
  746.               case 'C':
  747.                   if(opP->mode!=MSCR || opP->reg!=CCR)
  748.                       losing++;
  749. ***************
  750. *** 1208,1214 ****
  751. --- 1366,1378 ----
  752.                   break;
  753.   
  754.               case 'J':
  755. + #ifdef m68040
  756. +                 if(opP->mode!=MSCR ||
  757. +                    ((opP->reg<USP && opP->reg>MSP) &&
  758. +                     (opP->reg<TC && opP->reg>SRP)))
  759. + #else
  760.                   if(opP->mode!=MSCR || opP->reg<USP || opP->reg>MSP)
  761. + #endif m68040
  762.                       losing++;
  763.                   break;
  764.   
  765. ***************
  766. *** 1362,1368 ****
  767.               /* This switch is a doozy.
  768.                  What the first step; its a big one! */
  769.           switch(s[0]) {
  770. - 
  771.           case '*':
  772.           case '~':
  773.           case '%':
  774. --- 1526,1531 ----
  775. ***************
  776. *** 1761,1766 ****
  777. --- 1924,1932 ----
  778.           case '+':
  779.           case '-':
  780.           case 'A':
  781. + #ifdef m68040
  782. +         case 'a':
  783. + #endif m68040
  784.               install_operand(s[1],opP->reg-ADDR);
  785.               break;
  786.   
  787. ***************
  788. *** 1860,1865 ****
  789. --- 2026,2037 ----
  790.               }
  791.               break;
  792.   
  793. + #ifdef m68040
  794. +         case 'c':
  795. +             install_operand(s[1],opP->reg-NC);
  796. +             break;
  797. + #endif m68040
  798. + 
  799.           case 'C':        /* Ignore it */
  800.               break;
  801.   
  802. ***************
  803. *** 1928,1933 ****
  804. --- 2100,2131 ----
  805.               case ISP:
  806.                   tmpreg=0x804;
  807.                   break;
  808. + #ifdef m68040
  809. +             case TC:
  810. +                 tmpreg=0x003;
  811. +                 break;
  812. +             case ITT0:
  813. +                 tmpreg=0x004;
  814. +                 break;
  815. +             case ITT1:
  816. +                 tmpreg=0x005;
  817. +                 break;
  818. +             case DTT0:
  819. +                 tmpreg=0x006;
  820. +                 break;
  821. +             case DTT1:
  822. +                 tmpreg=0x007;
  823. +                 break;
  824. +             case MMUSR:
  825. +                 tmpreg=0x805;
  826. +                 break;
  827. +             case URP:
  828. +                 tmpreg=0x806;
  829. +                 break;
  830. +             case SRP:
  831. +                 tmpreg=0x807;
  832. +                 break;
  833. + #endif m68040
  834.               default:
  835.                   abort();
  836.               }
  837. ***************
  838. *** 2246,2251 ****
  839. --- 2444,2454 ----
  840.       case '8':
  841.           the_ins.opcode[1]|=val<<10;
  842.           break;
  843. + #ifdef m68040
  844. +     case '9':
  845. +         the_ins.opcode[0]|=val<<6;
  846. +         break;
  847. + #endif m68040
  848.   #ifdef m68851
  849.       case '9':
  850.           the_ins.opcode[1]|=val<<5;
  851. ***************
  852. *** 2321,2326 ****
  853. --- 2524,2536 ----
  854.       register int c;
  855.       register char *beg_str;
  856.   
  857. + /*
  858. + #ifdef CANON && SUN_ASM_SYNTAX
  859. +     for (; *str != '\0'; str++)
  860. +         if (!(*str == ' ' || *str == '\t'))
  861. +             break;
  862. + #endif CANON && SUN_ASM_SYNTAX
  863. +  */
  864.       if(!str) {
  865.           return str;
  866.       }
  867. ***************
  868. *** 3244,3249 ****
  869. --- 3454,3465 ----
  870.           break;
  871.       case SEG_ABSOLUTE:
  872.           switch(ok) {
  873. + #ifdef m68040
  874. +         case 5:
  875. +             if(offs(exp)<0 || offs(exp)>3)
  876. +                 goto outrange;
  877. +             break;
  878. + #endif m68040
  879.           case 10:
  880.               if(offs(exp)<1 || offs(exp)>8) {
  881.                   as_warn("expression out of range: defaulting to 1");
  882. ***************
  883. *** 3388,3393 ****
  884. --- 3604,3612 ----
  885.           break;
  886.   
  887.       case 'm':
  888. + #ifdef m68040
  889. +         m68k_kind = 0;
  890. + #endif m68040
  891.           /* Gas almost ignores this option! */
  892.           (*argP)++;
  893.           if(**argP=='c')
  894. ***************
  895. *** 3402,3407 ****
  896. --- 3621,3633 ----
  897.           } else if(!strcmp(*argP,"68020"))
  898.               flagseen['m']=0;
  899.           else
  900. + #ifdef m68040
  901. +             if(!strcmp(*argP,"68040")) {
  902. +             flagseen['m']=0;
  903. +             m68k_kind = 4;
  904. +             }
  905. +         else
  906. + #endif m68040
  907.               as_warn("Unknown -m option ignored");
  908.           while(**argP)
  909.               (*argP)++;
  910. ***************
  911. *** 3551,3553 ****
  912. --- 3777,3802 ----
  913.       abort();
  914.   }
  915.   #endif
  916. + 
  917. + #ifdef m68040
  918. + indirect_fp_inst(name)
  919. + char *name;
  920. + {
  921. +     char **fpinst;
  922. + 
  923. +     for (fpinst = indirect_fp_opcodes; fpinst < endfpinst; fpinst++) {
  924. +         if (!strncmp(name, *fpinst, strlen(*fpinst))
  925. +             && strlen(name) == strlen(*fpinst)+1)
  926. +             return TRUE;
  927. +     }
  928. +     return FALSE;
  929. + }
  930. + 
  931. + m68020_only_inst(name)
  932. + char *name;
  933. + {
  934. +     if (!strcmp(name, "callm") || !strcmp(name, "rtm"))
  935. +         return TRUE;
  936. +     return FALSE;
  937. + }
  938. + #endif m68040
  939. *** 1.1    1992/04/02 22:37:22
  940. --- read.c    1992/04/03 03:33:51
  941. ***************
  942. *** 1117,1122 ****
  943. --- 1117,1128 ----
  944.           input_line_pointer --; /* Backup over what was not a ','. */
  945.           temp_fill = 0;
  946.       }
  947. + #ifdef CANON
  948. +     if ( temp_repeat == 0 ) {
  949. +         ignore_rest_of_line();
  950. +         return;
  951. +     }
  952. + #endif CANON
  953.       if ( temp_repeat <= 0 ) {
  954.           as_warn("Repeat < 0, .space ignored");
  955.           ignore_rest_of_line();
  956. *** 1.1    1992/04/02 22:42:46
  957. --- stack.c    1992/04/03 03:33:53
  958. ***************
  959. *** 3,9 ****
  960.   #ifndef CROSSATARI
  961.   #ifndef atariminix
  962.   #ifdef atarist
  963. ! int _stksize = -1L;
  964.   #endif
  965.   #endif
  966.   #endif
  967. --- 3,10 ----
  968.   #ifndef CROSSATARI
  969.   #ifndef atariminix
  970.   #ifdef atarist
  971. ! long _stksize = -1L;
  972. ! unsigned long __DEFAULT_BUFSIZ__ = 64*1024L; /* why not ! */
  973.   #endif
  974.   #endif
  975.   #endif
  976. *** 1.1    1992/04/02 22:37:22
  977. --- version.c    1992/04/03 03:33:56
  978. ***************
  979. *** 1,7 ****
  980. --- 1,15 ----
  981.   #if defined(__STDC__) || defined(const)
  982.   const
  983.   #endif
  984. + #ifdef CANON
  985. + char version_string[] = "GNU assembler version 1.38(Modified 1.5)\n";
  986. + #else
  987. + #if defined(CROSSATARI) || defined(atarist) || defined(atariminix)
  988. + char version_string[] = "GNU assembler version 1.38";
  989. + #else
  990.   char version_string[] = "GNU assembler version 1.38\n";
  991. + #endif /* atari */
  992. + #endif CANON
  993.   
  994.   /* DO NOT PUT COMMENTS ABOUT CHANGES IN THIS FILE.
  995.   
  996.